home *** CD-ROM | disk | FTP | other *** search
- object Form24: TForm24
- Left = 334
- Top = 147
- Width = 396
- Height = 248
- Caption = 'Margins - printed page'
- Color = clBtnFace
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- FormStyle = fsStayOnTop
- OldCreateOrder = True
- OnDeactivate = FormDeactivate
- OnShow = FormShow
- PixelsPerInch = 120
- TextHeight = 16
- object Label1: TLabel
- Left = 89
- Top = 5
- Width = 203
- Height = 16
- Caption = 'Enter the page margins below. '
- Font.Charset = ANSI_CHARSET
- Font.Color = clWindowText
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = [fsBold]
- ParentFont = False
- end
- object Label2: TLabel
- Left = 12
- Top = 108
- Width = 25
- Height = 16
- Caption = 'Left:'
- end
- object Label3: TLabel
- Left = 204
- Top = 108
- Width = 34
- Height = 16
- Caption = 'Right:'
- end
- object Label4: TLabel
- Left = 128
- Top = 108
- Width = 38
- Height = 16
- Caption = 'Label4'
- end
- object Label5: TLabel
- Left = 325
- Top = 108
- Width = 38
- Height = 16
- Caption = 'Label5'
- end
- object Label6: TLabel
- Left = 108
- Top = 59
- Width = 25
- Height = 16
- Caption = 'Top:'
- end
- object Label7: TLabel
- Left = 226
- Top = 59
- Width = 38
- Height = 16
- Caption = 'Label7'
- end
- object Label8: TLabel
- Left = 89
- Top = 148
- Width = 46
- Height = 16
- Caption = 'Bottom:'
- end
- object Label9: TLabel
- Left = 226
- Top = 148
- Width = 38
- Height = 16
- Caption = 'Label9'
- end
- object Label10: TLabel
- Left = 15
- Top = 25
- Width = 361
- Height = 16
- Caption =
- '(all margins are relative to minimum margins for current printer' +
- ')'
- end
- object Edit1: TEdit
- Left = 49
- Top = 98
- Width = 70
- Height = 24
- Hint =
- 'The left side of the image will be at this location. The image ' +
- 'is placed against the right margin if it will not fit between th' +
- 'e left margin entered here and the right side of the page. A la' +
- 'rge value will place images as far right as possible. '
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- Text = '0.00'
- end
- object Edit2: TEdit
- Left = 246
- Top = 98
- Width = 70
- Height = 24
- Hint =
- 'The top of the image will be at this location. The image is pla' +
- 'ced against the bottom margin if it will not fit between the top' +
- ' margin entered here and the bottom of the page. A large value ' +
- 'will place images as low as possible. '
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- Text = '0.00'
- end
- object BitBtn1: TBitBtn
- Left = 10
- Top = 177
- Width = 70
- Height = 31
- Hint = 'Use the above margins.'
- Caption = 'Ok'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 4
- OnClick = BitBtn1Click
- Kind = bkOK
- end
- object BitBtn2: TBitBtn
- Left = 276
- Top = 177
- Width = 92
- Height = 31
- Hint = 'Leave margins as they were before.'
- ParentShowHint = False
- ShowHint = True
- TabOrder = 5
- OnClick = BitBtn2Click
- Kind = bkCancel
- end
- object Edit3: TEdit
- Left = 148
- Top = 49
- Width = 70
- Height = 24
- TabOrder = 2
- Text = '0.00'
- end
- object Edit4: TEdit
- Left = 148
- Top = 138
- Width = 70
- Height = 24
- TabOrder = 3
- Text = '0.00'
- end
- end
-